home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / tr.dir / 00009_PlayerParentObject.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  792 b   |  46 lines
  1. property mMyCurrentScore, mMyHighestScore, mDidIBeatRecord, mMyName
  2.  
  3. on birth me
  4.   return me
  5. end
  6.  
  7. on mGetMyName me
  8.   return the mMyName of me
  9. end
  10.  
  11. on mSetMyName me, arg
  12.   set the mMyName of me to arg
  13. end
  14.  
  15. on mGetMyHighestScore me
  16.   return the mMyHighestScore of me
  17. end
  18.  
  19. on mSetMyHighestScore me, arg
  20.   set the mMyHighestScore of me to arg
  21. end
  22.  
  23. on mGetMyCurrentScore me
  24.   return the mMyCurrentScore of me
  25. end
  26.  
  27. on mSetMyCurrentScore me, arg
  28.   set the mMyCurrentScore of me to arg
  29.   if mMyCurrentScore < 0 then
  30.     set mMyCurrentScore to 0
  31.   end if
  32. end
  33.  
  34. on mGetBeatHighScore me
  35.   if (mMyCurrentScore >= mMyHighestScore) and (mMyCurrentScore > 0) then
  36.     SortListDescending()
  37.     return 1
  38.   else
  39.     return 0
  40.   end if
  41. end
  42.  
  43. on mSetBeatHighScore me, arg
  44.   set the mDidIBeatRecord of me to arg
  45. end
  46.